home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / misc / hpasm3_1.lha / HPAsm3.10e / examples / Heure.s < prev    next >
Text File  |  1994-10-03  |  3KB  |  160 lines
  1. *********************************************************
  2. * Heure : Affichage d'une horloge géante sur l'écran de *
  3. *         la pile                                       *
  4. * Compatible HP48S(X)/HP48G(X)                          *
  5. *********************************************************
  6.     include    entries.i
  7. AddEcran = $131f8
  8.  
  9.     con(5)    DOCOL
  10.  
  11.     con(5)    CLEARLCD
  12.     con(5)    $04189        <41d>
  13.     con(5)    SetSysFlag
  14.     con(5)    $0CED9        ACTIVE INTERR
  15.     con(5)    BEGIN
  16.     con(5)    TOD        TIME
  17.     con(5)    TOD>t$        TIME->STR
  18.  
  19. ********************************
  20.     con(5)    DOCODE
  21. Code1    con(5)    Code2-Code1
  22.  
  23.     gosbvl    PopASavptr    recupere dans A l'adresse de la chaine
  24.  
  25.     a=a+12    a
  26.     d1=a
  27.  
  28.     d0=(5)    AddEcran
  29.     a=dat0    a
  30.     d0=a
  31.     a=dat0    a
  32.     lc(5)    34*18
  33.     a=a+c    a
  34.     d0=a
  35.  
  36.     gosub    Aff
  37.     d0=d0+    1
  38.     d1=d1+    2
  39.     gosub    Aff
  40.     d0=d0+    1
  41.     d1=d1+    2
  42.     gosub    Aff
  43.  
  44. * affichage des : entre les chiffres
  45.  
  46.     ad0ex
  47.     lc(5)    5*34+12
  48.     a=a+c    a
  49.     d0=a
  50.  
  51.     lc(2)    16
  52.     la    $7777700000777777
  53.  
  54. Loop    dat0=a    1
  55.     d0=d0+    11
  56.  
  57.     dat0=a    1
  58.     d0=d0+    16
  59.     d0=d0+    7
  60.  
  61.     asrc
  62.     c=c-1    b
  63.     gonc    Loop
  64.  
  65.     govlng    GETPTRLOOP
  66.  
  67. *************************************************************
  68. * affichage des deux chiffres pointee par d1 a l'adresse d0 *
  69.  
  70. Aff    gosub    Aff1
  71. Aff1    lc(5)    Graph0-Offset
  72.     a=pc
  73. Offset    a=a+c    a
  74.  
  75.     c=0    a
  76.     c=dat1    b
  77.     d1=d1+    2
  78.     cbit=0    4
  79.     cbit=0    5
  80.  
  81.     c=c+c    a    )
  82.     c=c+c    a    )
  83.     a=a+c    a    )
  84.     c=c+c    a    ) a=a+140*c
  85.     a=a+c    a    )
  86.     csl    a    )
  87.     a=a+c    a    )
  88.  
  89.     ad1ex
  90.  
  91.     lc(2)    27
  92.     b=c    b
  93. Aff2    c=dat1    a
  94.     dat0=c    a
  95.     d1=d1+    5
  96.     d0=d0+    16
  97.     d0=d0+    16
  98.     d0=d0+    2
  99.     b=b-1    b
  100.     gonc    Aff2
  101.  
  102.     ad1ex
  103.  
  104.     ad0ex
  105.     lc(5)    34*28-5
  106.     a=a-c    a
  107.     d0=a
  108.  
  109.     rtn
  110.  
  111. * donnees pour les dessins des chiffres (20*28)
  112. Graph0    hex    $08F000EF300FF708FFF0CFFF1CFFF1EFFF3
  113.     hex    $EF8F3F70F7F30E7F30E7F10C7F10C7F10C7
  114.     hex    $F10C7F10C7F10C7F10C7F30E7F30E7F70F3
  115.     hex    $EF8F3EFFF1CFFF18FFF00FF700EF3008F00
  116. Graph1    hex    $008700087000C7000C7000E7008F700FF70
  117.     hex    $0FF700FF700FF700FF7000C7000C7000C70
  118.     hex    $00C7000C7000C7000C7000C7000C7000C70
  119.     hex    $00C7000C7000C7000C7000C7000C7000C70
  120. Graph2    hex    $08F000EF308FF70CFFF0CFFF1EFFF1EF8F3
  121.     hex    $E70F3E30F3E30F3E30F3E38F300CF100EF1
  122.     hex    $00FF008F700CF300EF100FF008F700CF300
  123.     hex    $EF100EFFF3EFFF3EFFF3EFFF3EFFF3EFFF3
  124. Graph3    hex    $00F000CF300FF708FFF08FFF1CFFF3CF9F3
  125.     hex    $CF0F3C70F3C70F3000F1008F100FF000F70
  126.     hex    $00FF100FF3008F3000F7E70F7E70F7E70F7
  127.     hex    $CF8F7CFFF3CFFF38FFF18FFF00FF700CF10
  128. Graph4    hex    $00CF000EF000FF000FF008FF008FF00CFF0
  129.     hex    $0EFF00EFF00FFF08FDF0CFCF0CFCF0E7CF0
  130.     hex    $F3CF0F3CF0FFFF7FFFF7FFFF7FFFF7FFFF7
  131.     hex    $00CF000CF000CF000CF000CF000CF000CF0
  132. Graph5    hex    $CFFF3CFFF3CFFF3CFFF3CFFF3CFFF3CF100
  133.     hex    $CF100CF100CFD30CFFF0CFFF1CFFF3CFFF3
  134.     hex    $CF1F7CF0E7000E7000E7000E7000E7E70E7
  135.     hex    $EF0F7EFFF7CFFF3CFFF38FFF10FFF00EF70
  136. Graph6    hex    $08F300CFF00EFF10FFF30FFF38FFF78F1E7
  137.     hex    $CF0C7CF000EFC30EFFF0EFFF1EFFF1EFFF3
  138.     hex    $EF1F3EF0E7E70E7E70C7E70C7C70E7CF0E7
  139.     hex    $CF1F78FFF38FFF30FFF10FFF10CFF000F30
  140. Graph7    hex    $CFFF3CFFF3CFFF3CFFF3CFFF3CFFF3CFFF3
  141.     hex    $008F3008F100CF100CF000EF000E7000E70
  142.     hex    $00F3000F3008F1008F1008F100CF000CF00
  143.     hex    $0EF000EF000EF000EF000EF000EF000EF00
  144. Graph8    hex    $08F100EF700FFF08FFF1CFFF1EF0F3E70E3
  145.     hex    $E70E3E70E3E70E3CF0F1CF9F18FFF08FFF0
  146.     hex    $CFFF1EF8F3E70F3F30E7F30E7F30E7F30E7
  147.     hex    $F70F7EFFF3EFFF3CFFF18FFF00FF700CF10
  148. Graph9    hex    $08F100EF700FFF08FFF18FFF1CFFF3CF0F3
  149.     hex    $E70E3E70E3E70E7E70E7E70E7EF0F7CF9F7
  150.     hex    $CFFF78FFF78FFF70FFF70C7E3000E3C70E3
  151.     hex    $C70F3CFCF1CFFF18FFF00FFF00EF7008F10
  152. Code2
  153. ********************************
  154.     con(5)    $04912        WAIT INTERR
  155.     con(5)    GETTOUCH
  156.     con(5)    UNTIL
  157.     con(5)    DROP
  158.  
  159.     con(5)    SEMI
  160.